home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / SWAMP2.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  73 lines
  1. 1 POKE36869,255:PRINT"ô";:FORI=1TO88:PRINT"S";:NEXTI:PRINT""
  2. 2 B$="":C$="":POKE36878,15:M=15:LL=3:IFSC>HTHENH=SC
  3. 3 PRINT"É"TAB(8)" YZ[\] ¥¥¥¥¥¥¥¥¥ ^ _& !#$% ":FF=150:SC=0
  4. 4 FORI=15TOMSTEP-1:GOSUB60:NEXTI
  5. 5 PRINT""TAB(255)TAB(242)"ªªªªªªªªªªªªªªªªªªªªªÉ":POKE8185,230:POKE38905,5:A$=""
  6. 6 GOSUB71:TI$="000000":GOTO9
  7. 7 PRINT"É"TAB(44)"'()"SC:PRINT"JK"LL"HIGH"H
  8. 8 IFVAL(TI$)>20ANDO=0THENM=M-1:I=M:GOSUB60:TI$="000000":SC=SC+Y+5
  9. 9 GETA$:GOTO29
  10. 10 GOTO25
  11. 11 POKE37154,127:K=-((PEEK(37152)AND128)=0):POKE37154,255:P=PEEK(37137)
  12. 12 I=-((PAND8)=0):J=-((PAND16)=0):Z=-((PAND4)=0):IFI+J+K+Z=0ANDA$=""THEN18
  13. 13 IFSC>FFTHENLL=LL+1:FF=FF+150
  14. 14 IF(A$="M"ORI=1)ANDY<M-1THENGOSUB47:Y=Y+1
  15. 15 IF(A$="I"ORZ=1)ANDY>0THENGOSUB47:Y=Y-1
  16. 16 IF(A$="J"ORJ=1)ANDX>0THENGOSUB64:GOSUB47:X=X-1:DR=0
  17. 17 IF(A$="K"ORK=1)ANDX<18THENGOSUB66:GOSUB47:X=X+1:DR=1
  18. 18 IFDRTHEN22
  19. 19 IFF=1THENPOKE36876,147:GOTO21
  20. 20 POKE36876,135:GOSUB45:PRINT"ÉV¥¥LM":F=1:GOTO7
  21. 21 GOSUB45:PRINT"ÉW¥¥LM":F=0:GOTO7
  22. 22 GOSUB45:IFFTHENPOKE36876,147:GOTO24
  23. 23 POKE36876,135:PRINT"ÉX¥JK":F=1:GOTO7
  24. 24 PRINT"ÉI¥JK":F=0:GOTO7
  25. 25 IFO=0THENO=1:BX=X+1:X1=BX:BY=M:Y1=BY:GOSUB46:PRINT"ÉQ¥@É":GOTO11
  26. 26 IFBY=0THENY1=BY:X1=BX:GOSUB46:PRINT" ¥ ":O=0:GOTO11
  27. 27 BY=BY-1:IF(BY=YORBY=Y+1)AND(BX=XORBX=X+1)THEN57
  28. 28 X1=BX:Y1=BY:GOSUB46:PRINT"ÉQ¥R¥ ":GOTO11
  29. 29 IFN=0THENSY=M:ONINT(RND(I)*3+1)GOTO31,32,33
  30. 30 ONNGOTO35,38,41
  31. 31 IFX<4THENSX=X-Y+M:S0=S    
  32. 32 IFX>13THENSX=X+Y-M+2:S0=SX:N=2:GOTO37
  33. 33 N=3:SX=X:S0=SX:GOTO40
  34. 34 Y1=SY:X1=SX:GOSUB46:PRINT"ÉF":SY=SY-1:GOTO10
  35. 35 Y1=SY:X1=SX:GOSUB46:PRINT" ":IFSY<2ORSX<2THENN=0:Y1=M:X1=S0:GOSUB46:PRINT" ":GOTO10
  36. 36 SX=SX-2:SY=SY-2:GOTO43
  37. 37 Y1=SY:X1=SX:GOSUB46:PRINT"ÉH":SY=SY-1:GOTO10
  38. 38 Y1=SY:X1=SX:GOSUB46:PRINT" ":IFSY<2ORSX>18THENN=0:Y1=M:X1=S0:GOSUB46:PRINT" ":GOTO10
  39. 39 SX=SX+2:SY=SY-2:GOTO43
  40. 40 Y1=SY:X1=SX:GOSUB46:PRINT"G":SY=SY-1:GOTO10
  41. 41 Y1=SY:X1=SX:GOSUB46:PRINT" ":IFSY<2THENN=0:Y1=M:X1=S0:GOSUB46:PRINT" ":GOTO10
  42. 42 SY=SY-2
  43. 43 Y1=SY:X1=SX:IF(SY=YORSY=Y+1)AND(SX=XORSX=X+1)THEN49
  44. 44 GOSUB46:PRINT".":GOTO10
  45. 45 X    
  46. 46 PRINT"";LEFT$(B$,Y1);LEFT$(C$,X1);:RETURN
  47. 47 X1=X:Y1=Y
  48. 48 GOSUB46:PRINT"  ¥¥  ":RETURN
  49. 49 GOSUB59:FORI=YTOM:X1=X:Y1=I:GOSUB46:PRINT"  ¥¥NN":POKE36876,215-I*2:NEXTI
  50. 50 POKE36876,0:POKE36877,250:GOSUB46:A$=" ABCD":PRINT"¥═▌╬Æ¥";:GOSUB63:POKE36877,0
  51. 51 PRINT"¥¥   ¥";:FORJ=1TO3:FORI=1TO5:PRINT"¥"MID$(A$,I,1);:GOSUB63
  52. 52 IFI=4THENPOKE36876,250
  53. 53 IFI=5THENPOKE36876,0
  54. 54 NEXTI,J:PRINT"¥ "
  55. 55 Y=0:LL=LL-1:IFLL>-1THENY1=M:X1=S0:GOSUB46:PRINT" ":GOTO4
  56. 56 PRINT""TAB(226)"GAME  OVER":GOSUB71:GOTO1
  57. 57 GOSUB59:A$="  ¥T¥U¥Q¥R":FORI=YTOM:X1=X:Y1=I:GOSUB46
  58. 58 PRINTLEFT$(A$,5+M*3-I*3):POKE36876,215-I*2:NEXTI:GOTO50
  59. 59 X1=SX:Y1=SY:GOSUB46:PRINT"  ¥¥  ":N=0:    
  60. 60 PRINT""LEFT$(B$,I)"ªªªªªªªªªªªªªªªªªªªªªªÉ"
  61. 61 IFY>M-2THENY1=Y:X1=X:GOSUB46:PRINT"  ¥¥  ":Y=Y-1
  62. 62 RETURN
  63. 63 FORZ=1TO200:NEXTZ:RETURN
  64. 64 IFBX=X-1ANDBY=YTHEN68
  65. 65 RETURN
  66. 66 IFBX=X+2ANDBY=YTHEN68
  67. 67 RETURN
  68. 68 SC=SC+10+Y:O=0:X1=BX:Y1=BY:GOSUB46:PRINT" "
  69. 69 POKE36877,220:FORL=15TO0STEP-1:POKE36878,L
  70. 70 NEXTL:POKE36878,15:POKE36877,0:RETURN
  71. 71 GETA$:I=-((PEEK(37137)AND32)=0):IFA$=""ANDI=0THEN71
  72. 72 RETURN
  73.